home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / The Treasure Hunt / THFB.Dxr / 00010.ls < prev    next >
Encoding:
Text File  |  1994-09-16  |  399 b   |  18 lines
  1. on mouseUp
  2.   global its
  3.   if its >= 23 then
  4.     go("door")
  5.   else
  6.     if not (the soundBusy of 2) then
  7.       puppetSound(0)
  8.       updateStage()
  9.       if the machineType <> 256 then
  10.         sound playFile 2, "THunt:THF:TH:FOR_ALL:SI711.AIF"
  11.       else
  12.         set d to char 1 to 3 of the pathName
  13.         sound playFile 2, d & "TREASURE\THF\TH\FOR_ALL\SI711.AIF"
  14.       end if
  15.     end if
  16.   end if
  17. end
  18.